CAAIlluminatedFraction_IlluminatedFraction_2 <-
function(r, R, Delta){
.Call("CAAIlluminatedFraction_IlluminatedFraction_2", r, R, Delta)
}
